home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-09
/
floppies.zip
/
FLOPPY.ZIP
/
ANSREPCL.SC
< prev
next >
Wrap
Text File
|
1992-03-14
|
1KB
|
55 lines
;------ANSREPCL.SC
IF ISTABLE("ANSWER") = FALSE THEN
CLEARALL
CLEAR
STYLE ATTRIBUTE 158
@12,10
?? "YOU MUST FIRST RUN A QUERY BEFORE YOU CAN PRINT IT !!"
SLEEP 5000
PLAY "CALQ"
ENDIF
STYLE ATTRIBUTE 30
@23,1 CLEAR EOL
?? "COPYING REPORTS FROM FLOPPIES TABLE TO ANSWER "
MENU{TOOLS}{COPY}{JUSTFAMILY}{FLOPPIES}{ANSWER}{REPLACE}
STYLE ATTRIBUTE 142
@24,1 CLEAR EOL
?? "CHECKING PRINTER STATUS...."
WHILE PRINTERSTATUS() = FALSE
BEEP BEEP
CLEAR
STYLE ATTRIBUTE 206
@ 10,15
TEXT
YOUR PRINTER IS NOT READY !!!
ENDTEXT
;-------------------SET UP MENU LOOP
CHOICE = " "
WHILE CHOICE <> "EXIT"
;----------------SHOW OPTION MENU.
SHOWMENU
"CONTINUE" : "PREPARE PRINTER AND SELECT THIS",
"EXIT" : "RETURN TO MAIN MENU....."
TO CHOICE
;------------------PLAY SCRIPT OF CHOICE.
SWITCH
CASE CHOICE = "CONTINUE" :
QUITLOOP
CASE CHOICE = "EXIT" :
CLEAR
STYLE REVERSE
@ 12,24
?? "RETURNING TO QUERY MENU"
PLAY "QUERFLOP"
SLEEP 1000
BEEP BEEP
ENDSWITCH
ENDWHILE
ENDWHILE
menu{report}{output}{answer}{1}{printer}
PLAY "QUERFLOP"